inherited frmCadCampanhas: TfrmCadCampanhas
  Caption = 'Cadastro de Campanhas'
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          object GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO'
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DESCRICAO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DESCRICAO'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2SIGLA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'SIGLA'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
        end
      end
    end
    inherited tbsEdita: TcxTabSheet
      inherited Panel2: TPanel
        Width = 620
        Height = 362
        object cxDBTextEdit2: TcxDBTextEdit
          Left = 524
          Top = 32
          DataBinding.DataField = 'SIGLA'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          TabOrder = 0
          Width = 45
        end
        object edtNome: TcxDBTextEdit
          Left = 76
          Top = 32
          DataBinding.DataField = 'DESCRICAO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          TabOrder = 1
          Width = 445
        end
        object cxDBTextEdit1: TcxDBTextEdit
          Left = 7
          Top = 32
          DataBinding.DataField = 'CODIGO'
          DataBinding.DataSource = dsRegistro
          Enabled = False
          Style.Color = clWindow
          TabOrder = 2
          Width = 65
        end
        object cxLabel1: TcxLabel
          Left = 7
          Top = 15
          Caption = 'C'#243'digo'
          Transparent = True
        end
        object cxLabel2: TcxLabel
          Left = 76
          Top = 15
          Caption = 'Nome'
          Transparent = True
        end
        object cxLabel3: TcxLabel
          Left = 524
          Top = 15
          Caption = 'Sigla'
          Transparent = True
        end
      end
    end
  end
  inherited dtEdit: TIBDataSet
    DeleteSQL.Strings = (
      'delete from campanhas'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into campanhas'
      '  (CODIGO, DESCRICAO, SIGLA)'
      'values'
      '  (:CODIGO, :DESCRICAO, :SIGLA)')
    RefreshSQL.Strings = (
      'Select * '
      'from campanhas '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select c.* from campanhas c'
      'where c.codigo = :codigo')
    ModifySQL.Strings = (
      'update campanhas'
      'set'
      '  CODIGO = :CODIGO,'
      '  DESCRICAO = :DESCRICAO,'
      '  SIGLA = :SIGLA'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_CAMPANHAS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"CAMPANHAS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"CAMPANHAS"."DESCRICAO"'
      Size = 50
    end
    object dtEditSIGLA: TIBStringField
      FieldName = 'SIGLA'
      Origin = '"CAMPANHAS"."SIGLA"'
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      'select c.* from campanhas c')
    object dtListCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"CAMPANHAS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListDESCRICAO: TIBStringField
      DisplayLabel = 'Campanha'
      FieldName = 'DESCRICAO'
      Origin = '"CAMPANHAS"."DESCRICAO"'
      Size = 50
    end
    object dtListSIGLA: TIBStringField
      DisplayLabel = 'Sigla'
      FieldName = 'SIGLA'
      Origin = '"CAMPANHAS"."SIGLA"'
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
end
